home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00186_MM Japas- FotosScript.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  762 b   |  31 lines
  1. property sprPrim, sprUlt
  2.   
  3. on getBehaviorDescription
  4.   return "Fotos Ini FrameScript"
  5. end
  6.  
  7. on getPropertyDescriptionList
  8.   set p_list = [ ┬¼
  9.     #sprPrim: [ #comment:   "Primeiro sprite a scrollar", ┬¼
  10.                     #format:   #integer, ┬¼
  11.                    #default:   0 ], ┬¼
  12.     #sprUlt: [ #comment:   "Ultimo sprite a scrollar", ┬¼
  13.                     #format:   #integer, ┬¼
  14.                     #default:  0] ┬¼
  15.   ]
  16.   return p_list
  17. end
  18.  
  19. on enterFrame me
  20.   set largura = 0
  21.   repeat with i = sprPrim to sprUlt
  22.     set largura = largura + the width of sprite i
  23.   end repeat
  24.   set posicao = 0
  25.   repeat with i = sprPrim to sprUlt
  26.     sendSprite(i, #inicializaPosicao, largura, posicao)
  27.     set posicao = posicao + the width of sprite i
  28.   end repeat
  29. end
  30.  
  31.